home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt86feb.arc / LIST4.TXT < prev    next >
Text File  |  1985-10-19  |  393b  |  20 lines
  1.  
  2.  
  3.     DEFINE( 'PUSH(X)' )
  4.     DEFINE( 'POP()' )
  5.     DEFINE( 'TOP()')
  6.     DATA( 'LINK(NEXT,VALUE)' )            :(STACK_END)
  7.  
  8. PUSH    PUSH_POP  = LINK( PUSH_POP, X )
  9.     PUSH  = .VALUE( PUSH_POP )            :(NRETURN)
  10.  
  11. POP    IDENT( PUSH_POP)                :S(FRETURN)
  12.     POP  = VALUE(PUSH_POP)
  13.     PUSH_POP  = NEXT( PUSH_POP )            :(RETURN)
  14.  
  15. TOP    IDENT( PUSH_POP)                :S(FRETURN)
  16.     TOP  = .VALUE( PUSH_POP )            :(NRETURN)
  17.  
  18. STACK_END
  19.  
  20.